DEFINE CLASS cl_adherente as Custom 

	nro_adherente=0
	apellido=""
	nombre=""
	direccion=""
	telefono=""
	id_categoria=0
	
	PROCEDURE  getnro_adherente
	RETURN this.nro_adherente
	ENDPROC
	
	PROCEDURE  getapellido
	RETURN this.apellido
	ENDPROC
	
	PROCEDURE  getnombre
	RETURN this.nombre
	ENDPROC
	
	PROCEDURE  getdireccion
	RETURN this.direccion
	ENDPROC
	
	PROCEDURE  gettelefono
	RETURN this.telefono
	ENDPROC
	
	PROCEDURE  getid_categoria
	RETURN this.id_categoria
	ENDPROC
	
	
	PROCEDURE  setapellido
	LPARAMETERs nuevo
	this.apellido=nuevo
	ENDPROC
	
	PROCEDURE  setnombre
	LPARAMETERs nuevo
	this.nombre=nuevo
	ENDPROC
	
	PROCEDURE  setid_categoria
	LPARAMETERs nuevo
	this.id_categoria=nuevo
	ENDPROC
	
	PROCEDURE  setdireccion
	LPARAMETERs nuevo
	this.direccion=nuevo
	ENDPROC
	
	PROCEDURE  settelefono
	LPARAMETERs nuevo
	this.telefono=nuevo
	ENDPROC
	
	PROCEDURE nuevo_adherente
	USE DATA1/adherente
	INSERT INTO adherente (apellido, nombre, telefono, direccion, id_categoria, anio_inicio, mes_inicio) VALUES (this.apellido, this.nombre, this.telefono, this.direccion, this.id_categoria, YEAR(DATE()), MONTH(DATE()))
	USE IN adherente
	ENDPROC	
	
	PROCEDURE buscar_adherente
	LPARAMETERS nro
	USE DATA1/adherente
	SELECT * FROM adherente WHERE nro_adherente=nro INTO CURSOR ad
	IF _tally==0 then
	USE IN adherente
	USE IN ad
	RETURN .f.
	ELSE
	this.nro_adherente=ad.nro_adherente
	this.apellido=ad.apellido
	this.nombre=ad.nombre
	this.direccion=ad.direccion
	this.telefono=ad.telefono
	this.id_categoria=ad.id_categoria
	endif
	USE IN ad
	USE IN adherente
	ENDPROC
	
	PROCEDURE borrar
	SET DELETED on
	USE DATA1/adherente
	DELETE FROM adherente WHERE nro_adherente=this.nro_adherente
	USE IN adherente
	ENDPROC
	
	PROCEDURE modificar
	USE DATA1/adherente
	UPDATE  adherente set apellido=this.apellido, nombre=this.nombre, telefono=this.telefono, direccion=this.direccion, id_categoria=this.id_categoria WHERE nro_adherente=this.nro_adherente
	USE IN adherente
	ENDPROC		
	
	procedure mostrar_adherentes
	LPARAMETERS ape
	USE DATA1/adherente
	SELECT * FROM adherente WHERE apellido like "%"+ALLTRIM(ape)+"%" into cursor cur_adherentes
	LOCAL xml_adherentes
	CURSORTOXML("cur_adherentes","xml_adherentes",1,48)
	USE IN adherente
	USE IN cur_adherentes
	RETURN xml_adherentes
	ENDPROC

ENDDEFINE
	